home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / cost25sc.zip / PIZZA.PAS < prev   
Pascal/Delphi Source File  |  1992-03-22  |  1KB  |  50 lines
  1. PROGRAM Pizza_Cost_for_the_STJPG;
  2.  
  3.  
  4.  
  5. VAR Pizza_Price,Total,Cost_per_member,TotalSlice,Members,Slices_per_member,Cost: INTEGER;
  6.     Group : String[10];
  7.     Item : String [10];
  8.  
  9. BEGIN
  10.    WRITELN ('What item is this report for?');
  11.    READLN (Item);
  12.    CLRSCR;
  13.    WRITELN;
  14.    WRITELN;
  15.    WRITELN;
  16.    WRITELN;
  17.    WRITELN ('               ',Item,' Cost Figurer V 2.5');
  18.    WRITELN;
  19.    WRITELN ('                 From Solar SoftWorks');
  20.    WRITELN;
  21.    WRITELN;
  22.    WRITELN ('                   By Mark Wurtzler');
  23.    WRITELN;
  24.    WRITELN;
  25.    WRITELN;
  26.    WRITELN;
  27.    WRITELN (' Press Enter to Continue');
  28.    READLN;
  29.    CLRSCR;
  30.    WRITELN ('What group or organization is this report for?');
  31.  
  32.    READLN (Group);
  33.    WRITELN ('This program will figure the cost of ',Item,' for each ',Group,' Member.');
  34.    WRITELN;
  35.    WRITELN ('Enter total ',Group,' Members....');
  36.    READLN (Members);
  37.    WRITELN ('What is the cost per ',Item,'?');
  38.    READLN (Pizza_Price);
  39.    WRITELN ('How many ',item,'s will all of you guys use a piece?');
  40.    READLN (Slices_per_member);
  41.    TotalSlice := Slices_per_member * Members;
  42.    Cost := Pizza_Price * TotalSlice;
  43.    Cost_per_member := Slices_per_Member * Pizza_Price;
  44.    WRITELN ('The ',Group,' will pay $',Cost,' for ',item,'.');
  45.    WRITELN ('');
  46.    WRITELN ('Each member owes $',Cost_per_Member,'.');
  47.    WRITELN ('Pay up guys!');
  48.    WRITELN;
  49. END.
  50.